home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / text+faqs / france.guide_v1.3 / install / install_france_guide < prev   
Text File  |  1995-02-26  |  12KB  |  275 lines
  1. ; $VER: Install_France_Guide 2.0 (25.02.95) écrit par Gérard Cornu pour Saint Jérôme le Gueux ;-)
  2. ;  
  3. ;-- Language specific string definitions --------------------------------------
  4.                                                                                
  5. ; ENGLISH -----------------------------                                        
  6. (procedure english (
  7.    
  8.    (set README_FILE "ReadMe")
  9.    
  10.    (set MSG_BAD_KICK "%s needs at least System 2.0\n(3.x preferable !)")
  11.  
  12.    (set MSG_NOT_3.0  (cat  "\n\nI just found out that you are not using system 3.x."
  13.                            " %s can be used on your system, with AmigaGuide©, but you won't be able to"
  14.                            " display the maps directly from %s.\n\n"
  15.                            "Click on \"Help...\" to get some infos about a work around."))
  16.                            
  17.    (set MSG_HELP_NOT_3.0 (cat "You just have to replace, in the France.Guide file the\n\n"
  18.                            "  LINK Cartes/....iff/MAIN}\n\n"
  19.                            "parts, by\n\n"
  20.                            "  SYSTEM \"PPShow Cartes:....iff\"}\n\n"
  21.                            "Then you'll have to assign Cartes: to the directory where you"
  22.                            " installed France Guide with Cartes appended to it, ie:\n\n"
  23.                            "assign Cartes:  My_HD:My_directory/France/Cartes\n\n"
  24.                            "Of course, you may replace PPShow by your prefered"
  25.                            " picture viewer. Please note that the quotes below are important.\n\n"
  26.                            "Two find and replace in your text editor will accomplish this:\n\n"               
  27.                            "Find:\n\n"
  28.                            "LINK Cartes/\n\n"
  29.                            "Replace by:\n\n"
  30.                            "SYSTEM \"PPShow Cartes:\n\n"
  31.                            "Then find:\n\n"
  32.                            ".iff/MAIN}\n\n"
  33.                            " and replace by:\n\n"
  34.                            ".iff\"}\n\n"
  35.                            "Yet again, the quotes are note here for decorative purpose ;-)\n\n"
  36.                            "The directory containing the picture viewer, PPShow in our"
  37.                            " example, must be in your command path."))
  38.  
  39.    (set MSG_DESTINATION (cat  "Where would you like to install %s?\n"
  40.                            "A drawer named \"France\" will be created there and"
  41.                            " all files needed by %s will be copied into this \"France\" drawer."))
  42.  
  43.    (set MSG_FONT        (cat  "\n\n\n%s is supplied with an Helvetica font in 9 points size,"
  44.                            " optimized by myself. Would you like to copy it to your"
  45.                            " \"Fonts:\" directory?"))
  46.  
  47.    (set MSG_HELP_FONT      (cat  "For optimum comfort, your screen should be set at least"
  48.                            " to 640 x 512, 4 colo(u)rs.\n\n"
  49.                            "The supplied font (Helvetica 9) is perfect for a 17\""
  50.                            " or bigger screen."))
  51.  
  52.    (set MSG_COPY_FONT      "Copy font")
  53.    
  54.  
  55.    (set MSG_FIXFONTS "\"Sys:System/FixFonts\" is currently updating your \"Fonts:\" directory.")
  56.  
  57.    (set MSG_PATH        (cat  "\n\nFor %s to work properly, the path where you just installed %s"
  58.                            " must be included in the \"AmigaGuide/Path\" system environment"
  59.                            " variable.\n\n"
  60.                            " Would you like me to modify (or create, if necessary) this"
  61.                            " environment variable?"))
  62.  
  63.    (set MSG_HELP_PATH      (cat  "If you choose to \"skip this part\", you'll have to do it"
  64.                            " manually. For more infos about this environment variable, click"
  65.                            " on the \"Help\" gadget while you are using AmigaGuide (or MultiView)."))
  66.  
  67.    (set MSG_APPENDING_PATH (cat  "Updating your \"ENV:AmigaGuide/Path\" environment variable"
  68.                            " and copying it to \"ENVARC:AmigaGuide/Path\"."))
  69.  
  70.    (set MSG_SKIP           "Skip this part")
  71.  
  72.    (set MSG_YES            "Yes")
  73.  
  74.    (set MSG_THANKS "\n\n\nThank you for having installed %s!")
  75. ))
  76.  
  77. ; Français --------------------------------------------------------
  78.  
  79. (procedure français (
  80.    
  81.    (set README_FILE "Lise_&_Moi")
  82.  
  83.    (set MSG_BAD_KICK "%s nécessite au minimum le système 2.0\n(3.x de préférence !)") 
  84.  
  85.    (set MSG_NOT_3.0        (cat  "\n\nIl semblerait que votre machine n'utilise pas le"
  86.                               " système 3.x. %s peut fonctionner sur"
  87.                               " votre système, avec AmigaGuide©, mais vous ne pourrez pas afficher les"
  88.                               " cartes directement depuis %s.\n\n"
  89.                               " Cliquez sur \"Aide...\" pour les modifications"
  90.                               " à apporter de façon à voir les cartes comme sous"
  91.                               " le système 3.x, (ou presque ;-)")) 
  92.  
  93.    (set MSG_HELP_NOT_3.0   (cat  "Il suffit simplement de remplacer, dans le fichier"
  94.                               " France.guide, les\n\n"
  95.                               "    LINK Cartes/....iff/MAIN}\n\n"
  96.                               "par des\n\n"
  97.                               "    SYSTEM \"PPShow Cartes:....iff\"}\n\n"
  98.                               "Ensuite il vous faudra assigner Cartes: au répertoire où"
  99.                               " vous aurez installé France Guide, terminé par Cartes, par exemple:\n\n"
  100.                               "assign Cartes:  Disque:Répertoire/France/Cartes\n\n"
  101.                               "Vous pouvez évidemment remplacer PPShow par votre"
  102.                               " afficheur d'images préféré. Notez que les guillemets ci-dessous"
  103.                               " ont leur importance.\n\n"
  104.                               "Deux chercher/remplacer dans votre éditeur de texte y parviendront:\n\n"
  105.                               "Chercher:\n\n"
  106.                               "LINK Cartes/\n\n"
  107.                               "Remplacer par:\n\n"
  108.                               "SYSTEM \"PPShow Cartes:\n\n"
  109.                               "Puis, chercher:\n\n"
  110.                               ".iff/MAIN}\n\n"
  111.                               "et remplacer par:\n\n"
  112.                               ".iff\"}\n\n"
  113.                               "Encore une fois les guillemets ne sont pas là uniquement pour"
  114.                               " décorer ;-).\n\n"
  115.                               "Le répertoire qui contient l'afficheur d'images,\n"
  116.                               "PPShow dans notre exemple, doit bien sûr être\n"
  117.                               "dans votre chemin de commandes (\"Path\")."))
  118.  
  119.    (set MSG_DESTINATION    (cat  "Où désirez-vous installer l'ensemble %s?\n"
  120.                               "Un répertoire \"France\" y sera créé, et l'ensemble"
  121.                               " des fichiers nécessaires à %s sera copié dans ce répertoire"
  122.                               " \"France\".")) 
  123.  
  124.    (set MSG_FONT           (cat  "\n\n\n%s est fournie avec une font, Helvetica en 9 points,"
  125.                               " optimisée par mes soins. Voulez-vous la copier dans"
  126.                               " votre répertoire \"Fonts:\"?"))
  127.  
  128.    (set MSG_HELP_FONT      (cat  "Pour un confort optimal, votre écran doit être au"
  129.                               " minimum en 640 x 512, 4 couleurs.\n\n"
  130.                               "La police de caractère fournie (Helvetica 9) est parfaite"
  131.                               " pour un écran 17 pouces ou supérieur."))
  132.  
  133.    (set MSG_COPY_FONT         "Copier la font")
  134.  
  135.    (set MSG_FIXFONTS "\"Sys:System/FixFonts\" est en train de mettre à jour votre répertoire \"Fonts:\"")
  136.  
  137.    (set MSG_PATH           (cat  "\n\nAfin que %s fonctionne correctement"
  138.                               " il est nécessaire que le chemin où vous venez d'installer %s soit"
  139.                               " inclus dans la variable d'environnement système \"AmigaGuide/path\".\n\n"
  140.                               "Voulez-vous que je modifie (ou crée, si nécessaire)"
  141.                               " cette variable d'environnement?"))
  142.  
  143.    (set MSG_HELP_PATH      (cat  "Si vous choisissez de \"Passer cette partie\", il vous faudra le"
  144.                               " faire manuellement. Pour plus d'infos sur cette variable"
  145.                               " d'environnement, cliquez sur le bouton \"Aide\""
  146.                               " lorsque vous êtes dans AmigaGuide (ou Multiview)."))
  147.  
  148.    (set MSG_APPENDING_PATH (cat  "Mise à jour de votre variable d'environnement"
  149.                               " \"ENV:AmigaGuide/Path\" et copie dans \"ENVARC:AmigaGuide/Path\"."))
  150.  
  151.    (set MSG_SKIP              "Passer cette partie")
  152.  
  153.    (set MSG_YES               "Oui")
  154.    
  155.    (set MSG_THANKS "\n\n\nMerci d'avoir installé %s!")
  156. ))
  157.  
  158. ;------------------------------------------------------------------------------
  159. ; what are we speaking around here, not much ;^)
  160.  
  161. (if (= @language "english")  (english))
  162. (if (= @language "français") (français))
  163.  
  164. ; Choose default tool for guide, depending on user's OS version
  165. (set osversion  (/ (getversion) 65536))
  166. (if (>= osversion 39)
  167.    (set guide_reader "MultiView") 
  168.    (set guide_reader "AmigaGuide")
  169. )
  170. (set installed "")
  171.  
  172. (welcome)
  173.  
  174. (if (< osversion 37)
  175.    (abort (MSG_BAD_KICK @app-name))
  176. )
  177.  
  178. (if (< osversion 39)
  179.    (message (MSG_NOT_3.0 @app-name @app-name) (help MSG_HELP_NOT_3.0))
  180. )   
  181.  
  182. (set dest_dir
  183.    (askdir (prompt (MSG_DESTINATION @app-name @app-name))
  184.            (help @askdir-help)
  185.            (default "Help:")
  186.            (newpath)
  187.    )
  188. )
  189.  
  190. (set @default-dest (tackon dest_dir "France"))
  191.  
  192. (copyfiles  (source "/France")
  193.             (dest @default-dest)
  194.             (infos)
  195.             (all)
  196. )
  197. (copyfiles (source (cat "/" README_FILE))
  198.            (dest @default-dest)
  199.            (infos)
  200.            (files)
  201. )           
  202.  
  203. (set installed "YES")
  204.  
  205. (set font
  206.    (askbool (prompt (MSG_FONT @app-name))
  207.             (help MSG_HELP_FONT)
  208.             (choices MSG_COPY_FONT MSG_SKIP)
  209.    )
  210. )   
  211.  
  212. (if (= font 1)
  213.    (
  214.       (copyfiles (source "/fonts")
  215.                  (dest "Fonts:")
  216.                  (all)
  217.       )
  218.       (if (exists "Sys:System/FixFonts" (noreq))
  219.          (  
  220.             (working MSG_FIXFONTS)
  221.             (run "Sys:System/FixFonts")
  222.          )
  223.       )            
  224.    )
  225. )                 
  226.  
  227. (set dopath
  228.    (askbool (prompt (MSG_PATH @app-name @app-name))
  229.             (help MSG_HELP_PATH)
  230.             (choices MSG_YES MSG_SKIP)
  231.    )
  232. )               
  233.  
  234. (if (= 1 dopath)
  235.    (
  236.       (working MSG_APPENDING_PATH)
  237.  
  238.       (if (exists "ENV:AmigaGuide/Path" (noreq)) 
  239.          (textfile (dest "ENV:AmigaGuide/Path")
  240.                    (append (getenv "AmigaGuide/Path"))
  241.                    (append (cat "\n" @default-dest))
  242.          )
  243.          (textfile (dest "ENV:AmigaGuide/Path")
  244.                    (append @default-dest)
  245.          )
  246.       )
  247.       (copyfiles (source "ENV:AmigaGuide/Path")
  248.                  (dest "ENVARC:AmigaGuide")
  249.                  (files)
  250.                  (nogauge)
  251.       )
  252.    )
  253. )         
  254.  
  255. (if (exists (tackon @default-dest "France.guide.info") (noreq))
  256.    (
  257.       (tooltype   (dest (tackon @default-dest "France.guide"))
  258.                   (noposition) (setdefaulttool guide_reader))
  259.       (set installed "YES")         
  260.    )
  261. )
  262.  
  263. (if (exists (tackon @default-dest (cat README_FILE ".info")) (noreq))
  264.    (
  265.       (tooltype   (dest (tackon @default-dest README_FILE))
  266.                   (noposition) (setdefaulttool guide_reader))
  267.       (set installed "YES")         
  268.    )
  269. )
  270.  
  271. (if (= installed "YES") 
  272.    (exit (MSG_THANKS @app-name))
  273.    (exit)
  274. )   
  275.